﻿Module Module1

    Public ipCode As String = "127.0.0.1"
    Public portNumber As Integer = 6000
    Public WM As New worldModel

    Sub Main(ByVal args As String())

        Console.WriteLine("start")

        If Not args Is Nothing AndAlso args.Length = 4 Then
            If Not args(1) Is Nothing Then
                ipCode = args(1)
                portNumber = args(3)
            End If
        End If

        Dim p As New player
        While True
            p.MainLoop()
        End While

    End Sub

End Module
